// TOWN SPECIAL ENCOUNTERS
//    Town 41: Ghikra

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(820,"Rentar-Ihrno");
	set_personality_name(821,"Glantris-Bok");
	set_personality_name(822,"Vyvnas-Bok");
	set_personality_name(823,"Koriba");
	set_personality_name(824,"Vahnatai Shade");
	set_personality_name(825,"Ohar");
	set_personality_name(826,"Tekora-Tel");
	set_personality_name(827,"Kyhar");

	set_crime_tolerance(max_crime);

	if (gf(41,7) > 0) {
		erase_char(4100);
		erase_char(4105);
		erase_char(4102);
		erase_char(4103);
		erase_char(4104);
		erase_char(4111);
		erase_char(4112);
		}
		else if (revive_party()) {
			print_str_color("Entering a friendly major city heals your wounds",2);
			print_str_color("  and restores your spell energy.",2);
			}

	if (gf(41,19) > 0)
		erase_char(4108);
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4100,"Chip. Chip.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4100,"Pick. Pick.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4100,"Hummmmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4100,"Approach.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4100,"You are here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"(Come.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"(Here.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"(Yes.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"(Do not fear.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"(BREAK.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"(GO.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"(HUNT.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"(TIME.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"(INEVITABLE.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"Chip and grind.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"Polish and shape.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"Listen to the stone.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"Purity in rock.");
	if (get_ran(1,0,100) < 20)
		give_char_text_bubble(4108,"Approach.");
	if (get_ran(1,0,100) < 20)
		give_char_text_bubble(4108,"I have message.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"Shiiiick. Shiiick.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"Clang. Clang.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"Fine killing art.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"Showing of craft.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"I can teach.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Kyhar, come.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Hummm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Where is Bon-Ihrno?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Must solve mysteries.");


break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

 